home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / I N F E R N O (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  185 lines
  1. 1 :poke2053,143:sys8006:poke788,52:poke50257,16
  2. 2 poke50258,64:poke50255,peek(50255)+1
  3. 10 poke721,0:poke720,0:forx=0to24:poke54272+x,0:next
  4. 40 au=0:ifpeek(711)=2andpeek(712)=2orpeek(690)=15thengosub1720
  5. 60 au=0:ifpeek(711)=1andpeek(712)=1thenau=1:poke713,peek(713)+1
  6. 80 poke711,0:poke712,0:poke56,95
  7. 100 ifau=0thenpoke708,0:poke709,0
  8. 120 poke53280,00:poke53281,0:sys30368
  9. 140 poke53248+21,0:poke198,0:poke646,6
  10. 160 s=0:sp=30272
  11. 180 ifau=0thengosub2000
  12. 200 az=peek(697)
  13. 220 ifaz/2<>int(az/2)oraz>10oraz<4then180
  14. 240 x5=int(40/(az/2))
  15. 260 gosub1240:fory=1to13step12
  16. 280 forx=0to38stepx5:x1=x+int((x5-5)*rnd(0))
  17. 300 y1=y+int(6*rnd(0))
  18. 320 l=0:x2=x1*8+20:ifx2>255thenl=2:x2=x2-255
  19. 340 y2=y1*8+49
  20. 360 pokesp+s,x1:s=s+1
  21. 380 pokesp+s,y1:s=s+1
  22. 400 pokesp+s,x2:s=s+1
  23. 420 pokesp+s,y2:s=s+1
  24. 440 pokesp+s,l :s=s+1
  25. 460 next:next:goto760
  26. 480 v=53248
  27. 500 pokev+27,2:rem feuer
  28. 520 pokev+40,2
  29. 540 pokev+2,0
  30. 560 pokev+3,0
  31. 580 poke18425,12
  32. 600 pokev+21,3:rem auto
  33. 620 pokev+29,6
  34. 640 pokev+23,6
  35. 660 pokev+39,10
  36. 680 pokev+0,140
  37. 700 pokev+1,140
  38. 720 poke18424,13
  39. 740 return
  40. 760 forx=1toaz
  41. 780 r(x)=x:next:gosub900
  42. 800 forx=1to50:ra=int((az-1)*rnd(0))+1
  43. 820 a=r(ra):r(ra)=r(ra+1):r(ra+1)=a
  44. 840 next:gosub900
  45. 860 forx=1toaz
  46. 880 r(x)=5*(r(x)-1):next:gosub900::goto920
  47. 900 forx=1toaz:poke30335+x,r(x):next:return
  48. 920 rem spiel sterten
  49. 940 ifau=0thenpoke710,39
  50. 960 poke705,0:rem haus brennen
  51. 980 rem  poke708,000:poke709,0:rem score
  52. 1000 poke53279,0:rem spreit kollision
  53. 1020 poke53264,0:rem spreit msb's
  54. 1040 poke703,00:rem haus nr. zaehler
  55. 1060 poke706,255:poke707,peek(710):rem bonus
  56. 1080 print"[147]":sys30624:rem hausbau
  57. 1100 print"";:forx=0topeek(710):printchr$(218);:next
  58. 1120 poke2,0:sys29248:rem spreit auf bs
  59. 1140 sys30089:rem feuer an
  60. 1160 gosub480:printchr$(146)chr$(142)chr$(8):poke256*peek(648)+999,160
  61. 1180 poke646,6:ti$="000000":poke721,1:rem ton auto
  62. 1200 sys29456
  63. 1220 run
  64. 1240 print"[147]":poke53280,0
  65. 1260 forx=0to5:print:next
  66. 1280 ifpeek(713)<=1thenti$="000000":printspc(15)"runde 1":return
  67. 1300 a1=val(left$(ti$,2))
  68. 1320 a2=val(mid$(ti$,3,2))
  69. 1340 a3=val(right$(ti$,2))
  70. 1360 a4=a1*3600+a2*60+a3
  71. 1380 print"sie haben"a4" sekunden gebraucht"
  72. 1400 print"das sind pro haus"a4/peek(697)" sekunden"
  73. 1420 :ti$="000000"
  74. 1440 print"[129]  f[221]r neubeginn taste 'n' dr[221]cken"
  75. 1460 print"  f[221]r die runde"peek(713)"[146]irgendeine taste        dr[221]cken"
  76. 1480 gosub1840
  77. 1490 poke198,0
  78. 1500 poke56322,224:if(peek(56320)and16)=0then1520
  79. 1505 poke56322,255
  80. 1510 gete$:ife$="n"thenrun
  81. 1515 ife$=""then1500
  82. 1520 poke56322,255:print"                             [146]"
  83. 1521 print"                             [146]"
  84. 1522 print"                             [146][145][145]"
  85. 1530 forx=1to81:poke646,x
  86. 1540 print"runde"peek(713)"[157] kommt sofort![146][145]":next:poke646,6
  87. 1560 return
  88. 1580 poke198,0:poke211,0:poke214,19:sys58640
  89. 1585 print" anzahl h[219]user (4/6/8/10) 6[157]";
  90. 1588 az$="":poke211,26:print"  [157][157]";
  91. 1589 geta1$:ifa1$=""then1589
  92. 1591 ifa1$=chr$(13)then1596
  93. 1592 ifasc(a1$)<48orasc(a1$)>57then1589
  94. 1593 iflen(az$)>1then1589
  95. 1595 printa1$;:az$=az$+a1$:goto1589
  96. 1596 az=val(az$):poke697,az:poke713,1
  97. 1600 ifaz/2<>int(az/2)oraz<4oraz>10thenpoke198,0:goto1588
  98. 1610 poke211,0
  99. 1611 print
  100. 1620 print" geschwindigkeit (0-20) 0=schnell  5[157]";
  101. 1622 az$="":poke211,35:print"  [157][157]";
  102. 1624 geta1$:ifa1$=""then1624
  103. 1628 ifa1$=chr$(13)then1636
  104. 1630 ifasc(a1$)<48orasc(a1$)>57then1624
  105. 1632 iflen(az$)>1then1624
  106. 1634 printa1$;:az$=az$+a1$:goto1624
  107. 1636 iflen(az$)=0then1624
  108. 1637 a=val(az$)
  109. 1638 ifa<0ora>20then1622
  110. 1640 poke689,a
  111. 1650 poke211,0:print
  112. 1655 poke676,0
  113. 1662 print" t[146]astatur j[146]oystick   t[157]";
  114. 1664 a$="":poke211,21:print"  [157][157]";
  115. 1666 geta1$:ifa1$=""then1666
  116. 1667 ifa1$=chr$(13)then1670
  117. 1668 iflen(a$)>0then1666
  118. 1669 printa1$;:a$=a$+a1$:goto1666
  119. 1670 ifa$="j"thenreturn
  120. 1672 ifa$="t"thenpoke676,1:return
  121. 1674 goto1664
  122. 1720 print"";
  123. 1740 ifpeek(690)=15thenpoke690,0:goto1800
  124. 1760 print"[149]   leider zu langsam gewesen ......    [146]"
  125. 1780 goto1820
  126. 1800 print"[149]   eine auswegslose situation ......   [146]"
  127. 1820 sys31808:forx=0to200:sys31584:next:forx=0to5000:next:return
  128. 1840 poke722,0:forx=0to18:sys31744:next
  129. 1860 return
  130. 2000 gosub2400:print""
  131. 2005 poke646,peek(53281):rem titel
  132. 2010 print"  [255]   [255]  [255]  [255][255][255]  [255][255][255]  [255][255][255]  [255][160][160][255]  [255][255][255][255] "
  133. 2020 print"  [255]   [255][255] [255]  [255]    [255]    [255][160][255]  [255][255][160][255]  [255][160][160][255] "
  134. 2030 print"  [255]   [255] [255][255]  [255][255]   [255][255]   [255][255][255]  [255] [255][255]  [255][160][160][255] "
  135. 2040 print"  [255]   [255]  [255]  [255]    [255]    [255][255]   [255][160][160][255]  [255][160][160][255] "
  136. 2050 print"  [255]   [255]  [255]  [255][160]   [255][255][255]  [255] [255]  [255][160][160][255]  [255][255][255][255] "
  137. 2060 print""
  138. 2065 s1=54272:pokes1+24,15:pokes1+13,253:pokev+12,253:pokes1+11,17
  139. 2100 v=53248:pokev+27,2:rem feuer
  140. 2120 pokev+40,2
  141. 2140 pokev+2,00
  142. 2150 pokev+23,2
  143. 2160 pokev+3,58
  144. 2170 pokev+29,2
  145. 2180 poke18425,12
  146. 2200 pokev+21,2
  147. 2220 sys30089:sys30128
  148. 2230 pokev+16,0
  149. 2240 forx=0to255step2:pokev+2,x:     
  150. 2245 ifx/6=int(x/6)then reads2:reads3:pokes1+8,s2:pokes1+7,s3
  151. 2250 if(x-20)/8<>int((x-20)/8)then2270
  152. 2260 fory=0to4:poke55296+40+(x-20)/8+40*y,7:next
  153. 2270 next
  154. 2300 pokev+16,2
  155. 2340 forx=0to116step2:pokev+2,x:x1=x+256
  156. 2345 ifx/6=int(x/6)then reads2:reads3:pokes1+8,s2:pokes1+7,s3
  157. 2350 if(x1-20)/8<>int((x1-20)/8)then2370
  158. 2360 fory=0to4:poke55296+40+(x1-20)/8+40*y,7:next
  159. 2370 :next
  160. 2380 poke54272+11,16:poke53248+21,0
  161. 2390 forx=0to6:print"":next:gosub1580:return
  162. 2400 print"[147][149]"
  163. 2410 print" das ziel des spieles ist es,die feuer   durch  ber[221]hren mit dem ";
  164. 2415 print"feuerwehrauto"
  165. 2420 print" zu l[220]schen. der eigene weg kann aber[160]   nicht mehr gekreuzt werden."
  166. 2430 print" ausserdem ist die zeit begrenzt."
  167. 2440 print" der wagen wird entweder mit dem         joystick in port 2"
  168. 2450 print" oder [221]ber die tasten    [146]q  [146]a  [146]:  [146];  [146]    gesteuert."
  169. 2460 print" die 'shift'-taste hat eine pausen       funktion."
  170. 2499 return
  171. 2500 data19,137,26,20,26,20,29,69,32,219
  172. 2510 data 26,20,32,219,29,69,19,137
  173. 2520 data19,137,26,20,26,20,29,69,32,219
  174. 2530 data26,20,26,20,24,157,19,137
  175. 2540 data26,20,26,20,29,69,32,219
  176. 2550 data34,207,32,219,29,69,26,20
  177. 2560 data24,157,19,137,21,237,24,157,26,20,26,20
  178. 2570 data21,237,24,157,21,237,19,137
  179. 2580 data21,237,24,157,26,20,26,20
  180. 2590 data19,137,21,237,19,137,17,103
  181. 2600 data16,109,17,103,19,137,19,137
  182. 2610 data21,237,24,157,21,237,19,137
  183. 2620 data21,237,24,157,26,20,21,237
  184. 2630 data19,137,26,20,24,157,29,69,26,20,26,20,26,20
  185.